eol-mnemonic-undecided if CODING-SYSTEM is nil.
(defun coding-system-eol-type-mnemonic (coding-system)
"Return the string indicating end-of-line format of CODING-SYSTEM."
(let* ((eol-type (coding-system-eol-type coding-system))
- (val (cond ((vectorp eol-type) eol-mnemonic-undecided)
- ((eq eol-type 0) eol-mnemonic-unix)
+ (val (cond ((eq eol-type 0) eol-mnemonic-unix)
((eq eol-type 1) eol-mnemonic-dos)
((eq eol-type 2) eol-mnemonic-mac)
- (t "-"))))
+ (t eol-mnemonic-undecided))))
(if (stringp val)
val
(char-to-string val))))